home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
os2
/
rxbas221.zip
/
CREATE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-01-13
|
1KB
|
54 lines
/* rexx */
numeric digits(20)
signal on syntax
say rxfuncadd(rexxbase_init,"REXXBASE",Rexxbase_Init);
say rexxbase_init()
/* create dbf */
dbfname="base.dbf"
dbfname.fieldcount = 5
dbfname.fieldname.1 = "Char"
dbfname.char.type = 'C'
dbfname.char.length = 32
dbfname.fieldname.2 = "Num"
dbfname.Num.type = 'N'
dbfname.Num.length = '1.0'
dbfname.fieldname.3 = "Truth"
dbfname.truth.type = 'L'
dbfname.fieldname.4 = "Dat"
dbfname.Dat.type = 'D'
dbfname.fieldname.5 = "Float"
dbfname.float.type = 'N'
dbfname.float.length = 8.6
retc=rexxbase_createdbf('dbfname').
say rexxbase_closedbf('dbfname')
dbfname="base.dbf"
ret1=rexxbase_opendbf('dbfname')
do dbfname.num = 1 to 12
dbfname.char = copies('x',dbfname.num)
dbfname.Dat=date(USA)
dbfname.float=1.1 / dbfname.num
dbfname.truth = 'F'
ret=rexxbase_writedbf('dbfname')
if ret="" then msg=OK
else do
say msg
leave
end
end
say msg
say rexxbase_closedbf('dbfname').
return
syntax:
errormsg = 'rexx error ' rc ' in line ' sigl ':' errortext(rc)
say errormsg
say sourceline(sigl)
exit